COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	c       PROGRAM SELIP       
C00004 ENDMK
C⊗;
c       PROGRAM SELIP       
 	DIMENSION IBUF(5000)
 	COMMON/FAC/JFAC,KFAC
  	JFAC=50 
  	KFAC=50 
 	CALL PLOTS(IBUF, 5000,1)
 	CALL PLOT(15.,14.75,-3)
CC	A=6.
CC	B=2.8
  	A=.7 
  	B=.3
       	DO 10 J=1,20
cc	CX=(RAN(K)*10.)-5.
cc	CY=(RAN(K)*10.)-4.
CC	CX=0.+(J/2-1)
CC	CY=(J/2)-0.
  	CX=(J/2)-5.
  	CY=5.-(J/2-1)
    	ANG=(RAN(K)*60.)-30
  	PAUSE     
                 
1	CALL ELLIP2(A,B,CX,CY,ANG)
	CALL DPYOUT(1)
CC   	A=.9*A           
CC     	B=.9*B          
  	A=1.1*A
  	B=1.1*B
10	CONTINUE
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
 	STOP
	END